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MODULE COMLABPROC Se 4 BA HS52) ’ 
eu 4-000' 


BEGIN 


+ 
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DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS ie hecte 4 FURNISHED meee A LICENSE AND MAY BE USED AND gt ha 
ONLY IN oe ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OTHE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE P ED OTHERWISE MADE AVAILABLE TO ANY 
PAANSPERREOT NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORAT Tix NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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SOFTWARE ON EQUIPMENT WHIC 
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IBILIT 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: INITIALIZE, MOUNT, MTAACP 
ABSTRACT: 


This module contains routines that are shared ee the 
MOUNT, INIT, and MTAACP. These routines deal e 
processing of the various labels that the MTAACP supports. 


ENVIRONMENT: 


VMS operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Meg Dumont, CREATION DATE: 21-Feb-1983 
MODIFIED BY: 
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v03-005 HH0041 Hai Huang 24-Jul-1984 
Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32'. 


V03-004 MMD0272 Meg Dumon 23-Mar-1984 9: 


~ 


41 
Add the common routine Cet “RECORD part of support for SMTACCESS 
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PROCESS VOL2 LABEL, 
TAPE_OWN_PROT; 


SSSSSSSSSFIESSSSSSS 
VO 
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18-Sep-1984 06: ) 3:88 Yaa Bliss-32 V4.0-74 
14-Sep-1984 246: MTAACP.SRCJCOMLABPRC .B352;1 
v03-003 MMD0175 ae Dumont 26-May-1983 15:10 
Change VOL1 to indicate ANSI Level 4 when writing system 


code in VOL1 

V03-002 MMD0137 Meg Dumont, 12-Apr-1983 17:30 
In TAPE_OWNER_ PROT, added a check for a nonVMS nonblank 
VOL1 OWNER IDENTIF{ER field. 

v03-001 mmporee Meg Dumont, 29-Mar-1983 0:46 


his module is does the common ANSI Label processing for 
thE MTAACP, MOUNT and INIT. 


*SYSSLIBRARY:LIB.L32'; 
*SRCS:MTADEF .B32'; 
*LIBDS:CVMSLIB.OBJJINITMSG.B32'; 


ROUTINE 
GET_RECORD, routine to get record tape is reading 
CHETK_PROT check VMS protection on tape 
FORMAT VOLOWNER : NOVALUE, format the volume onwer field 


intepret the VOL2 label 
determine the VMS owner and 
protection of a tape 


EXTERNAL ROUTINE 


ooo 
aon 


LIB$CVT_OTB : ADDRESSING_MODE (GENERAL); 


enenaemnaelicnsidedinsvesanmistindcdenedmmscticiinatuaemtasiagiis ) 
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COMLABPROC 16-Sep-1984 02:13: AX-11 Bliss-32 V4.0-74 Page 3 c¢ 
v04-000 a ae 95:18:88 ERTAACP SRE COMLABPRC.832;1 ’ (2) ve 
; 91 604 1 GLOBAL ROUTINE GET_RECORD(UCB) = 
3 38 eit 1 
: 9 6 § 1 !4¢ 
; 94 607 1! 
s 9 one 1 ! FUNCTIONAL DESCRIPTION: 
; 609 1! This routine is called before and after the call to SMTACCESS to return 
s 44 bers : the record that the tape drive is currently processing 
; b6l¢ 1 ! CALLING SEQUENCE: 
: 100 61 1! KERNEL_CALL (GET_RECORD, ARG1) 
; 101 0614 1! 
: 106 Bol? 1 ! INPUT PARAMETERS: 
Dore oig 1! ARG1 = Address of tapes UCB 
3 104 0617 1! 
; 105 0618 1 ! IMPLICIT INPUTS: 
: 106 0619 1! NONE 
3: 107 0620 1! 
: 108 bes) 1 ! OUTPUT PARAMETERS: 
3; 109 06 ¢ 7 7 NONE 
: 110 06235 1! 
: 111 pose 1 ! IMPLICIT OUTPUTS: 
; 116 0625 1! | 
a 0626 1 ! ROUTINE VALUE: ; 
3 6114 bese : 2 Current record the tape drive is processing. 
. 0628 1! 
s 116 +494 1 ! SIDE EFFECTS: 
s. 307 0630 1! NONE 
s 118 0631 1! 
: 119 peas 1 ! USER ERRORS: 
: 120 0633 1! NONE 
: (121 0634 1! 
: 122 0635 1 !-- 
: 125 0636 1 
> 1246 0637 2 BEGIN 
s 25 0638 2 MAP UCB : REF BBLOCK; 
: 126 0639 2 RETURN .UCBCUCBS$L_RECORD); 
: 127 0640 1 ND; 


-TITLE COMLABPROC 
IDENT \V04-000\ 


-EXTRN LIBSCVT_OTB 
-PSECT S$CODES,NOWRT,2 


-ENTRY GET_RECORD, Save nothing ; 0604 


0000 00000 ; 

50 04 ac DO 00002 MOVL oU > 0639 
50 00B0 CO 00 00006 MOVL 176(RO), RO ; 

04 00008 RET ; 0640 


; Routine Size: 12 bytes, Routine Base: S$CODE$S + 0000 


0641 1 
064¢ 1 GLOBAL ROUTINE TAPE_OWN_PROT ( VOLUIC, VOLUME PROT : REF BITVECTORCX%BPVAL), 
0643 1 PROCESS UIC, VOL! ) = 


3 
oF ve 16-Sep-1984 98 13388 eel Bliss-32 V4.0-74 Page s | 
-000 14-Sep-1984 12:46: MTAACP.SRCJCOMLABPRC .B32;1 (2) 
s I 0644 1 
oo $ 645 1 S44 
sy 968 1! 
: 134 647 1 ! FUNCTIONAL DESCRIPTION: 
s 135 bec : 3 This routine determines the tape_owner and protection of the volume. 
e 4 649 1! It uses the OWNER IDENTIFIER field of the VOL1 Label. If this 
s 157 0650 1! field contians a value that VMS does not interpret then, the 
; is bees 1! user is pequiree to have priylences to mount the tape. Unless 
; #139 $26 2 that user is the VMS owner of the tape determined from the YOL2 
: 140 0655 1! label. 
; «(1461 0654 1! 
; 146 beee 1 ! CALLING SEQUENCE: 
$ re be28 \ TAPE_OWN_PROT ( ARG1, ARG2, ARG3, ARG4 ) 
s 165 0658 1 ! INPUT PARAMETERS: 
: 146 0659 1! ARG] = Address of area to store the volume uic 
3; «©1467 0660 1! ARG2 = Address of area to store the volume protection 
: 4148 0661 1! ARGS = Process UIC 
: 149 B96 1! ARG4 - Address of ANSI VOL1 Label 
; 150 0665 1! 
> «151 0664 1 ! IMPLICIT INPUTS: 
: 136 0665 1! NONE 
; 0666 1 ! 
3; «61546 0667 1 ! OUTPUT PARAMETERS: 
3 55 668 1! NONE 
; 156 669 1! 
.. aor 0670 1 ! IMPLICIT OUTPUTS: 
s; 138 0671 1! VOLUME_UIC = owning uic of tape 
; «159 0672 1! VOLUME_PROT = tape protection 
: 160 0673 1! 
: «161 0674 1 ! ROUTINE VALUE: 
: 162 0675 1! TRUE = Field was blank or was specied in VMS format 
; 163 0676 1! FALSE = Field was not VMS format, But was pre ANSI Label Standard 
: «164 0677 1! version 4 and the tape was created on another DEC operating 
s 69 0678 1! system that is it has D% information. 
: 166 0679 1! 
: 167 0680 1 ! SIDE EFFECTS: 
: «168 0681 1! NONE 
: 169 0682 1! 
; 170 06835 1 ! USER ERRORS: 
3; 171 0684 1! NONE 
; ve 0685 1! 
; 17 0686 1 !-- 
: 174 86 _— 
3; «6175 688 BEGIN 
: 176 0689 
3; 177 0690 
3 178 be9) VOLUME_UIC = .VOLUIC; ! Address of volume uic 
; 180 69 MAP 
3; «6181 94 VOL1 : REF BBLOCK; ' Address of VOL1 Label 
: 18 695 
; 18 9 LOCAL 
3; «(184 69 CONV_BUF : VECTOR (6, BYTE], ! buffer used for converting UIC 
> 185 98 VALUE, ! used to hold parital UIC's 
: 136 8 P; ! ptr into VOL1 tape owner field 
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<- 
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bit numbers for different protections 
LIT 


fe J 
oO 
wn 


ecs 


ERAL 
WORLD_WRITE = 
WORLD-READ = 
GROUP“WRITE = 

= 


3, 
2, 
GROUP~READ : 


wo 


! If the LABEL STANDARD VERSION of tne 


VOL1 Label (CP 80) is a 4 then 
! do not process the VOL1 OWNER IDENTIFIER fiel 


F f d. 


IF .VOLICVL1$8 LBLSTDVER] EQL '4' 
THEN RETURN TRUE; 


! if ANSI tape produced by VAX system, decode tape owner fieid 
F one ee RI, 24> EQL "D%C’ 

BEGIN 

! set up the pointer to begining of tape owner field 

P = VOLICVLIST_VOLOWNER] + 3; 


! test for encoding 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 


IF .(.P)<0, 8> NEQ ‘ ° 
THE 
BEGIN 
! move the UIC group field from the VOL1 label to the buffer 
CHSMOVE(S, .P, CONV_BUF); 
! remove overlay encoding 


IF .(.P)<0, 8> GEQ ‘A’ 
THEN CONV_BUF<O, 8> = .(.P)<O, 8> - ('A' = '0'); 


' convert to ASCII to binary exit with failure not a VMS tape 
IF NOT LIBSCVT_OTB(5, CONV_BUF, VALUE) THEN RETURN FALSE; 

! fill in the UIC group field 

a tet 16> = .VALUE<O, 16>; 
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! point to UIC member field 

Pe 2 $; 

! test for encoding 

IF .(.P)<0, 8> NEQ ‘ ° 
BEGIN 
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! if the Ist char is a digit then no world access 


oo 
wr 


IF .(.P)<0, 8> LSS ‘A’ 
THEN VOLUME_PROTCWORLD_READ] = 1; 


! pointer to member field 

P= .P + 5; 

! test for group rights. all spaces means both read and write 
IF NOT CHSFAIL(CHSFIND_NOT_CH(5, .P, ° ")) 

THEN 
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' Now a must be decoded if both group and member are blank then 
| 
| 


; 245 P38 4 

: “8 228 ? ! move member number into convert buffer 

; 48 rol 4 CHSMOVE(S, .P, CONV_BUF); 

; 2 768 ? ! remove overlay encoding 

; 3 765 4 IF .(.P)<0, 8> GEQ ‘A’ | 
: 333 766 4 THEN CONV_BUF<O, 8> = .(.P)<0, B> = ('A' = '0'); 
3 55 Pes ? ! convert to ASCII to binary exit when failure not a VAX tape 
; § ro IF NOT LIBSCVT_OTB(5, CONV_BUF, VALUE) 

; 58 771 4 THEN 

ee si 

3 61 o77% 2 ! patch up UIC before returning 

; $65 o776 5 VOLUME_UIC = .PROCESS_UIC; 

; 264 0777 5 RETURN FALSE; 

Be eR be: 

: 67 0780 4 ! fill im the UIC member field 

: 269 O78¢ 4 VOLUME_UIC <0, 16> = .VALUE<O, 16>; 

; $70 078 ; END; 

i $3 ores 3 

: st? o736 : all privileges granted 

: 275 0788 i pointer to group uic 

3; are 0789 

ie te Bs | ee Seam 

: 444 1434 ; ! if field is not blank, then there is a protection mask 
3 it the: ; con” CHSFAIL(CHSFIND_NOT_CH(10, .P, ° ')) 

; 288 0796 4 BEGIN 

: 285 8795 : ! any mask means no world write 

; 0800 4 VOLUME _PROTCWORLD_WRITE) = 1; 

; 4 

z 4 

: 4 

HY 4 

3 4 

: 4 

; 4 

3 4 

: 4 

; & 

° 4 

; 4 

; 4 


—— tt 3 OOO 


Wun 

S 
ooooo 
0.0000 C900: 


egg 


2. et 

: 304 0 i$ 

3 305 0 18 

3 BS 081 

; 30 38 0 

; 308 1 

; 309 0 § 

: 10 0 

s 311 0824 é 

; \¢ 0825 ? 

$ 14 88 $ 4 

; 15 0828 

g 16 0829 

: 317 0830 

: 18 0831 

3 19 ttt 

: 320 083 

3 Sel 0834 

3 $5§ 0835 

s me 0836 

> 324 0837 

3; 325 0838 

; 326 0839 

s Ser 0840 ; 

3 $56 0841 

; 329 oaeg 2 

3 $39 0843 2 

g Bal 0844 2 

s 352 0845 1 

00432544 + &F 25 Ao 
04 AE 
04 AE 
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1o23ep=198e 13:40:36 EATAACPUSRESCOMLABPRC B82; 1 
BEGIN 
! write protection against group if non-blank 
VOLUME __PROTCGROUP_WRITE] = 1; 
! if the Ist char is a digit then no group access 


IF .(.P)<0, 8> L§s "aA! 
THEN VOLUME_PROTCGROUP_READ] = 1; 


END; 
END; 
END 
! If there is no VMS protection but was pre ANSI Label Standard 
' version 4 and the tape was created on another DEC operatin 
! system that is it has D% information. Then require priviledges 
!' to mount the tape. 
ELSE 
BEGIN 
IF .(VOLICVL1$T_VOIOWNERJ)<0,16> NEQ 'D%' 
THEN RETURN TRUE 
ELSE RETURN FALSE; 


RETURN TRUE; 
END; ! end of routine TAPE_OWN_PRO 


OOFC 00000 «ENTRY TAPE_OWN PROT, Save R2,R3,R4,R5,R6,R7 
57 000000006 00 H 90008 MOVAB LIBSCVT_OTB, R7 
5E 0C C2 0000 SUBL2 #12, SP 
50 10 AC 00 0000¢ MOVL VOL{, RO 
34 4F Ad 91 00010 cMPB 0S s«a79(R6), #52 
78 13 00014 BEQL 9$ 
18 0 FD 01 CMPZ7V. #0, #24, 37(RO), #4400452 
1 0 BEQL = «1 
00A0 33 BRW 12$ 
56 28 =A 3 0025 1$: MOVAB 40(RO), P 
20 9 99 9 CMPB (P+), #82 
13 002C BEQL 3$ 
66 g 00 MOVC3 #5, (P), CONV_BUF 
41 BF 66 1 00 cmpB 2 s«(PS, «#65 
5 1F 00 BLSSY 2$ 
66 11 83 00039 SUBB3 «#17, (P), CONV_BUF 
5E pd O3E 2$: PUSHL SP 
08 A F 4 PUSHAB CONV_BUF 
DD 0004 PUSHL & 
67 FB 4 CALLS #3, L JBSCVT_OTB 
0 E 4 BLBC =—_—s«aRO. 58 
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212 bytes, Routine Base: SCODE$ + 000C 


3; Routine Size: 


1 


0846 


SIDE EFFECTS: 
NONE 


USER ERRORS: 
NONE 
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v04-000 1a-8ep- 3B 95:13:38 EMTAACPeSRe COMLABPRC .832;1 . (3) 

i 5 0847 1 GLOBAL ROUTINE PROCESS_VOL2_LABEL ( VOLUIC, VOLUME_PROT : REF BITVECTORC%BPVALI, ‘ 
; 4g PROCESS_UIC, VOL2 ) = : 
: 338 20 1 !+4 ; 
3 9 ite : 
; 340 26 1 ! FUNCTIONAL DESCRIPTION: ; 
; «341 855 1! This routine determines the tape_owner and protection of the volume. : 
; ¢ baee 1! It uses the VOL2 Label to intepret the VMS specified/formatted ° 
5s 56 0855 1! rotection of this volume. This protection used to exist in the ; 
: 3446 Oae9 . WNER IDENTIFIER field of the VOL1 Label. We have moved it into ’ 
; 345 857 1! this Label because of changes which will be adopted in the ; 
5 re] S28 ! } upcoming (version 4) ANSI MAGNETIC TAPE STANDAR : 
; 348 0860 1 ! CALLING SEQUENCE: ; 
; 349 0861 1! PROCESS_VOL2_LABEL ( ARG1, ARG2, ARG3, ARG4 ) ; 
3 3550 p8e¢ 1! ; 
: 51 086 1 ! INPUT PARAMETERS: : 
3 26 0864 1! ARG] - Address of area to store the volume uic : 
: 5 0865 1! ARG2 = Address of area to store the volume protection : 
3 54 0866 1! ARGS - Process UIC : 
2 Se 0867 1! ARG4 - Address of ANSI VOL1 Label : 
3 28 0868 1! : 
: 5 0869 1 ! IMPLICIT INPUTS: ; 
s 358 0870 1! NONE : 
3 $28 0871 1! ; 
3 0 0872 1 ! OUTPUT PARAMETERS: 3 
: 361 0873 1! NONE : 
s oe 0874 1! ; 
: 6 0875 1 ! IMPLICIT OUTPUTS: é 
Z $00 0876 1! VOLUME_UIC = owning uic of tape . 
3: 365 + th : VOLUME_PROT - tape protection : 
3 3 0879 1 ! ROUTINE VALUE: : 
; 0880 1! TRUE = Field was blank or was specied in VMS format : 
: : peel ' FALSE - Field was non-blank and not VMS format : 
5 0885 1! : 
3 1! : 
: zz ; 
: 1! . 
3 0887 1! ; 
3 0888 1! : 
3 0889 1 !-- : 
3 Ba30 1 : 
5 91 BEGIN : 
; £36 : 
3 89 BIND : 
; 0895 VOLUME _UIC = .VOLUIC; ! Address of volume uic : 
3 P : 
3 B99 VOL2 : REF BBLOCK; ! Address of VOL2 Label 3 
; 386 898 : 
; 387 899 OCAL 3 
: 388 900 CONV_BUF : VECTOR (6, BYTE], ! buffer used for converting VIC : 
: 389 901 VALUE, ' used to hold parital UIC's 3 
3 ee Bans P; ! ptr into VOL2 owner field : 
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bit numbers for different protections 
LITERAL 
WORLD_WRITE = 13° 
WORLD_READ = 12, 
GROUP_WRITE = 9, 
GROUP_READ = 8; 


! if ANSI tape produced by VAX system, decode tape owner field 
IF _{VOLECVLEST _VOLOWNERI) <0, 24> EQL ‘D%C' 
BEGIN 
! set up the pointer to begining of tape owner field 
P = VOL2CVL2$T_VOLOWNER] + 3; 
! test for encoding 
IF .(.P)<0, 8> NEQ * ' 
THE 
BEGIN 
! move the UIC group field from the VOL2 label to the buffer 
CHSMOVE(6, .P, CONV_BUF); 
! remove overlay encoding 


IF .(.P)<0, 8> GEQ ‘A’ 
THEN CONV_BUF<O, 8> = .(.P)<0, 8> = ("A = '0'); 


! convert to ASCII to binary exit with failure not a VMS tape 
IF NOT LIBSCVT_OTB(6, CONV_BUF, VALUE) THEN RETURN FALSE; 

! fill in the UIC group field 

PAE MICE 16> = .VALUE<O, 16>; 


! poin® to UIC member field 
P= .P + 6; 
! test for encoding 
IF .(.P)<0, 8> NEQ * ° 
THEN 
BEGIN 
! move member number into convert buffer 
CHSMOVE(6, .P, CONV_BUF); 
! remove overlay encoding 
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IF .(.P)<0, 8> GEQ ‘A’ 


THEN CONV_BUF<O, 8> = .(.P)<0, 8> = ('A' = '0"); 
! convert to ASCII to binary exit when failure not a VAX tape 
if NOT LIBSCVT_OTB(6, CONV_BUF, VALUE) 

BEGIN 

! patch up UIC before returning 


VOLUME “pit = ,PROCESS_UIC; 
Sali LSE; 


epeaser® 
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! fill in the UIC member field 

re vie <0, 16> = .VALUE<O, 16>; 

! Now tape_prot must be decoded if both group and member are blank then 
: all privtleses granted 

! pointer to group uic 

= .P = 6; 

! if field is not blank, then there is a protection mask 
ra CHSFAIL(CHSFIND_NOT_CH(12, .P, ° ')) 

BEGIN 

! any mask means no world write 

VOLUME _PROTCWORLD_WRITE) = 

! if the Ist char is a digit then no world access 


IF .¢(.P)<0 LES 
THEN VOLUME Brot Sortp. READ] = 


! pointer to member field 
P= .P + 6; 
! test for group rights. all spaces means both read and write 
IF NOT CHSFAIL(CHSFIND_NOT_CH(6, .P, ° ‘)) 
BEGIN 
! write protection against group if non-blank 
VOLUME __PROTCGROUP_WRITE] = 1; 
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; 88 } ig ! if the 1st char is a digit then no group access ‘ 
; 508 1020 IF .(.P)<0, 8&> Las ‘a’ ; 
: 9 10 1 THEN VOLUME_PROTLGROUP_READ) = 1; ; 
: $11 10 5 4 END; ; 
; 9 1024 4 ; 
3 1 1025 END; 3 
: 514 10 : : 
:; 515 10 END; ; 
: 516 1028 ; 
: 517 19 9 RETURN TRUE; F 
; 518 1030 1 END; ! end of routine TAPE_OWN_PRO : 
0OFC 00000 .ENTRY PROCESS_VOL2_LABEL, Save R2,R3,R4,R5,R6,R7_ ; : 

57 000000006 00 H 00002 MOVAB LIBSCVT~OTB,~R7 : ; 

5E 0C C2 00009 SUBL2 #12, SP : : 

56 10 AC DO 0000C MOVL  VOL2, R6 ; ; 

00432544 8F 04 Ab 18 00 FD 00010 CMPZ2V #0, #24, 4(R6), #4400452 ; ; 
03 13 OOO1A BEQL =s«o1$ : ; 

009D 31 0001C BRW 10$ : ; 

56 07 CO OO01F 1$: ADDL2 #7, P : : 

20 $6 91 00022 CMPB) es (PS, #32 : ; 

23 13 0002 BEQL $ : : 

04 AE by 06 8 00027 MOVCS #6, (P), CONV_BUF : ; 

41 8F 66 91 0002C CMPB. «CPS, #65 : ; 

05 1F 00030 BLSS : F 

04 AE 66 11 83 90052 SUBBS #17, (P), CONV_BUF : : 

5E DD 00037 2$ PUSHL : : 

08 AE 9F 00039 PUSHAB CONV_BUF : : 

06 DD 9005¢ PUSHL ; : 

67 03 FB 0003E CALLS #3, LIBSCVT_OTB : : 

7C 50 €9 00041 BLBC ’ 11$ ; : 

04 BC 10 10 6E FO 00044 INSV. VALUE, #16, #16, @VOLUIC : : 

56 06 CO 0004A 3$: ADDL2 #6 : : 

20 66 91 0004D CMPB «CPS, #32 : 3 

28 13 00050 BEQL 3 : 

04 AE 64 6 8 003¢ MOVC3 #6, (P), CONV_BUF ; ; 

41 8F 6 91 000 CMPB) sé, «#65 : 3 

5 iF 99 B BLssy ; : 

04 AE 64 1 83 D UBB3 #17, (P), CONV_BUF : 3 

5E 0D 006¢ 4$: PUSHL § ; : 

08 AE 9F 00064 PUSHAB CONV_BUF ; : 

06 DD 00 67 PUSHL @# ; : 

67 Q F 9 CALLS #3, LIBSCVT_OTB ; : 

07 E 6C BLBS ; : 

04 BC Oc AC D 6F MOVL  PROCESS_UIC, aVOLUIC : : 

4A 11 4 BRB 1 ; : 

04 e¢ ; 8g 76 5$: MOVW VALUE, aVOLUIC ; : 

& 7A 68: SUBL2 # ; : 

76 0c : 7D SKPC 30s #32, #12, -(P) : : 

+ BNEQ 7$ 3 3 

D4 3 CLRL sR : : 
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GLOBAL ROUTINE CHECK_PROT(VOL_PROT,VOL_UIC, PROCUIC,WRT_RING) 


4 
16-Sep-19 
14-Sep-19 


+4 


FUNCTIONAL DESCRIPTION: 
this routine check VMS volume protection 


CALLING SEQUENCE: 
CHECK_PROT (ARG1 , ARG2,ARG3,ARG4) 


! INPUT PARAMETERS: 
ARG 


= volume protection 
ARG2 = volume owner UIC 
ARGS = Process UIC 
ARGS = Write ring status 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
TRUE = if passes protection ; 
FALSE - if does not pass protection 


SIDE EFFECTS: 
NONE 

USER ERRORS: 
NONE 


BEGIN 


CAL 
PROCESS UIC : VECTOR C 2, WORD J, 


WRITE_RING : BITVECTOR € 1 J; 
pP 
VOL _PROT : REF BITVECTOR 
VOL “UIC : REF VECTOR C 2, WORD J, 
WRT-RING : BITVECTOR C1 4; fj 
EXTE 


LITERAL 
NOT_GROUP_READ = g. ! the group read disable bit 
NOT_GROUP_WRITE = ! the group write disable bit 
NOT“WORLD"READ = 1¢- i the world read d 
NOTWORLD-WRITE = 13; / 


< 
° 


is this a write mount 


s this a write mount 


RNAL 
EXESGL_SYSUIC  : REF BBLOCK ADDRESSING_MODE ( ABSOLUTE ); 


b 
the world write disable bit 
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vour000 cori Fke $Sidaisg | FataAteObhescoe, Meade g$2-1 - a vo 
: 18 } : ! get the process UIC 
; 219 1990 PROCESS_UIC <0,32> = .PROCUIC; 
; 281 3 ! get the write protectio of teh tape 
: $88 4 WRITE_RING CO] = NOT .WRT_RING (0); 
; 285 é ! check if the user has write access to the tape 
: 587 1098 IF ( .PROCESS_UIC C 1] LEQ .EXESGL_SYSUIC ) OR ' the user's UIC has a 
3 obs 199? ; ! system group number 
: 390 1101 ( NOT .VOL_PROT C NOT_WORLD_WRITE ] ) OR ! the tape is world write 
: 236 1108 ‘ (( NOT .VOL_PROT C NOT_WORLD_READ] ) AND ! tape is world read and 
: 07 1132 2 ( NOT .WRITE_RING C 0°) )) OR ! read only mount 
: 595 1106 ‘ (( .PROCESS UIC C 1 J] EQL .VOL_UIC C_1]_) AND ! (tape's and user's 
>; 596 1107 4 (( NOT .VOC_PROT { _NOT_GROUP_QRITE J ) OR ! group match) and 
; 597 1108 5 (( NOT .VOC_PROT C NOT_GROUP_READ J ) AND ' (tape is group write) 
: 598 1109 4 ( NOT .WRITE_RING C 07) ))OR ' or (tape is group read 
; 599 1110 4 ! and read only mount) 
3 oy 4ay4 H ( .PROCESS_UIC C 0 J EQL .VOL_UIC C 0] ))) ! or (member UIC match)) 
: 602 1118 2 THEN RETURN TRUE; 
: 604 1115 : IF (C .VOL_PROT C NOT_WORLD_WRITE] ) AND ! user does not have write 
; rt BE 2 ( NOT TVOL_PROT C”NOT_WORLD_READJ)) OR ! acess but does have read 
; 607 1118 : (( .VOL_PROT C NOT_GROUP_WRITE]) AND ! or the same for group 
: ons 1132 ; ( NOT TVOL_PROT C”NOT_GROUP_READ]J)) ! they have read access 
: 610 11354 § TH ' Then allow mount but 
; 611 \15¢ BEGIN ! set the tape write lock 
5 oi¢ 1123 3 WRT_RING C 0 ) = 0; 
s 61 1124 3 RETORN TRUE; 
3 614 1125 END; 
3; 615 1126 
5 616 \i¢t user does not have needed priviledges return error 
: 618 1129 ; RETURN FALSE; 
; 619 1130 
; 620 1131 1 END; ! end of Routine CHECK_PROT 
-EXTRN EXESGL_SYSUIC 
0000 000 -ENTRY CHECK_PROT, Save nothing : 1031 
0c AC 0D 0000 PUSHL PR : 1090 
10 AC 01 9° EE 000 EXTZV #0, #1, WRT_RING, RO 3: 1094 
01 30 25 Hi SOF TNSV RO, #0, #1, WRITE_RING 
02 AE 10 09 FD ors cMPiV ; #16, PROCESS _O1C+2, a#EXESGL_SYSUIC ; 1098 
3D 04 BC OD €1 0O01F BBC #13, @VOL_PROT, 6$ : 1101 


D <i 
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yoacono 1:3 Sep sats 4 95:13 3 MTAACP.SRCJCOMLABPRC.B32; 1 - 
03 04 C £0 00024 BBS 12 avo PROT, 1$ : 1103 
35 gf 34 0 9 BLBC RITE RING + 1104 
0 08 AC 00 1$ MOVL VOL UIC, R + 1106 
02 A 0 i e 0 CHP PROCESS. “ulC+2, 2(R0) : 
25 ‘; oo if $0 BBC #9, @VOL_PROT, 6$ + 1107 
0 4 BC 8 £0 0003C¢ BBS #8. AVOL-PROT, 2$ + 1108 
1D 1 €9 0041 BLBC  WRITE_RING, 6$ : 1109 
60 6 B| 044 2$ CMPW © PROCESS_UIC, (RO) +1111 
18 13 00047 BEQL ; 

05 04 BC OD £1 00049 3s: BBC #3, avoL_ PROT, 4$ + 1115 
OA 04 BC Oc E1 O04g BBC #12, aVOL-PROT. 5$ F 1118 

OD 04 BC 9 £1 00053 4$ BBC #9, aVOL PROT, 7$ : 111 
08 04 BC 08 EO 0058 BBS 8, aVOL-PROT, 7$ + 1119 
10 AC 01 8A 00050 5$ BICB2 #1. WRT_ + 1123 
50 01 BO 00061 6$ MOVL : : 1124 
50 D4 90068 7$ CLRL = RO : 1129 

04 00067 RET + 1131 


; Routine Size: 104 bytes, Routine Base: $CODE$S + 01A3 


; 621 1132 #1 
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v04=000 3op- 198d $5548:36 — EMTAACPCSREICOMLABPRE B92; 1 wet 

; ° ; 1) ; } GLOBAL ROUTINE FORMAT_VOLOWNER(VOL_LABEL,OWNER,PROTECTION) : NOVALUE = : 
> 625 Wia2 | f¢* “ 
3; 6 § 11 : 1 : 
. = 11 1 | FUNCTIONAL DESCRIPTION: : 
; ° 3 17 3 : This routine formats the volume owner field in the VOL2 Label ‘ 
; 630 1140 1! CALLING SEQUENCE: ; 
; 631 1141 1! FORMAT_VOLOWNER (ARG1,ARG2,ARG3) ° 
3 O36 1326 13 ‘ 
3; 8 1143 1 | INPUT PARAMETERS: ° 
: oe 1144 1 ARG] = address of vOL2 Label ° 
; 635 1145 1! ARG2 = owner of tap ‘ 
; 636 1146 1 ARGS = tape protection ; 
: 637 1147 1 | ; 
; 638 1148 1! IMPLICIT INPUTS: ‘ 
; 639 1149 1! D&C preinitialized ‘ 
; 640 1150 1! ; 
; 641 1151 1 ! OUTPUT PARAMETERS: ° 
: ong 1126 1! none ‘ 
> 64 1153 1! : 
> 644 1154 1: meses B arlaainss ‘ 
; 645 1155 1: : 
: 646 1156 1: ; 
; 647 1157 1! ROUTINE ve ° 
; 648 1158 1! non ‘ 
; 649 1159 1: : 
; 650 1160 1 ' SIDE EFFECTS: : 
; 651 1161 1! none ° 
i 638 W16¢ 1 i : 
: 65 1163 1 | USER ERRORS: : 
> 654 1164 1 : 
; 655 1165 1! ° 
: 656 1166 1 i- : 
; 657 1167 1 > 
> 658 1168 2 BEGIN : 
; 659 1169 2 ‘ 
; 660 1170 3 MAP ; 
: 661 1171 ABEL : REF BBLOCK, ! address of VOL1 Label ‘ 
3 666 1176 2 PROTECTION : BITVECTOR; ! protection to be encoded on tape : 
; 664 1174 LOCAL : 
3; 665 1175 DESCR : VECTOR C2], ! descriptor : 
$ 666 1178 P; ! pointer ‘ 
: 66 117 ‘ 
; 668 1178 LITERAL : 
3; 669 1179 WORLD_WRITE = 15. : 
: 670 1180 WORLD-READ = 1 : 
> 671 1181 GROUP WRITE = | : 
i 67@ 1188 GROUP-READ = : 
; 67 11 : 
> 674 1184 : 
3; 675 1185 ! first convert binary owner to ASCII ‘ 
i 6% 1186 i ; 
: 67 11 DESCREO) = 12; : 
; 678 11 3 DESCRC1) = VOL_LABELCVL2$T_VOLOWNER] + 3; ‘ 
; 679 P 11 $F AOC : 


4 
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| 
| 
; 6 P 1190 DESCRIPTOR(* !60U!60N"D, 0, | 
; 681 1191 DESCR 0] ; 
: O8¢ 1198 -OWNER<16, 16>, .OWNER<O, 16>); | : 
; ? ¢ 113¢ now format protection | : 
: 686 1196 iF NOT ,PROTECTIONCGROUP_READ] OR NOT .PROTECTIONCWORLD_READ) THEN | : 
: 688 1198 P = VOL_LABELCVL2$T_VOLOWNER] + 9; ; 
: 689 1199 (.P)<0,8> = .(.P)<OTB> + ('A* = 'O"); F 
; 690 1200 END; 3 
: 691 1 4) ; 
5 33 : if : now if group can also write, blank fill member field : 
: 69% 04 if NOT .PROTECTIONCGROUP_WRITE] THEN CHSFILL(* ',6,VOL_LABELCVL2$T_VOLOWNER] + 9); : 
a | o 
; 696 1206 2 IF NOT .PROTECTIONCWORLD_READ] THEN ; 
: 697 1207 BEGIN : 
; 698 1208 P = VOL_LABELCVL2$T_VOLOWNER] + 3; : 
; 699 1209 (.P)<0,8> = .(.P)<O7B> + (TA* = "6; : 
fa deee ay ee : 
: 70 1312 IF NOT -PROTECTIONCWORLD_WRITE) THEN CHSFILL(' *,12,VOL_LABELCVL2$T VOLOWNER] + 3); : 
:; 70 1213 1 END; ‘end of routine FORMAT_VOLOQNER : 
57 GF 36 21 57 GF 36 21 00208 P.AAB: .ASCII \!60W!60W\ : 
0021 “BLKB. 1 
00000008 00214 P.AAA: :LONG 8 : 
00000000 00218 “ADDRESS P.AAB : 
-EXTRN SYSS$FAO 
00F ¢ 00000 -ENTRY FORMAT_VOLOWNER, Save R2,R3,R4,R5,R6.R7 : 1133 
SE 04 C 90008 SUBL2 #4, SP : 
0C DD 0000 PUSHL > 1187 
57 04 AC DO 00007 MOVL OL_LABEL, R7 : 1188 
04 AE 07 «+A? OOF 00008 MOVAB 7(R7), DESCR+4 
7E 08 Ac 3¢ 9001 MOVZWL OWNER. -(SP) + 1192 
7E OA AC 3C 00014 MOVZWL OWNER+2, -(SP) ; 
08 AE 9F 00018 PUSHAB DESC ; 
7E 04 00018 L = (SP) ; 
D8 AF OF 901 PUSHAB P.AAA ; 
000000006 00 0S FB " CALLS #5, SYSS$FAO ; 
05 OD Ac €9 00 LBC PROTECTION+1, 1$ : 1196 
07 OD Ac 04 £0 0 B S PROTECTION+1, 2$ : 
56 OD A7 0030 1$: AB 13(R7), P : 1198 
66 11 8 99 ADDB2 #17, (P) + 1199 
07 0D AC 01 : 7 2%: #1, PROTECTION+1, 3$ > 1204 
06 20 6E z 0 C 6 He MOVCS #0. (SP), #32, #6, 13(R7) : 
07 OD ac 04 £0 43 3$ BBS #4, PROTECTION+1, 4$ > 1206 
56 07 «A? 4 MOVAB 7(R7), P + 1208 
66 11 e 4C ADDB2 #17, (P) > 1209 
07 OD AC 5 5 4F 4$: BBS #5, PROTECTION+1, 5$ > 1212 
0c 20 6 0 2C 00054 MOVCS #0. (SP), #32, #12, 7(R7) ; 
| 
| 
J 


COM agpROC 1B-sen-1986 02:15:52 YAKad Bling 32 vé.0-742. 


° 


Of AT 94 88088 58: RET 


; Routine Size: 92 bytes, Routine Base: S$CODE$S + 021C 


704 1214 «#1 
705 1215 1 END 
706 1216 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 632 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eceecece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped ime 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 13 0 1000 00:01.9 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:COMLABPRC/OBJ=O0BJ$:COMLABPRC MSRC$:COMLABPRC/UPDATE=(ENHS$: COMLABPRC) 
: Bise: 615 code + 17 data bytes 
un Time 00:18. ‘ 
lovee Time: of 58. 
Lines/CPU Min: 401 


Rewenen/CPe-ties 26593 
a Used: 128 pages 
ilation Complete 
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